sub msxvideo9990vdp(tzrgid0 as ubyte,tzrgvl0 as ubyte)
  out $64,tzrgid0	    	'- register write mode
  out $63,tzrgvl0      '- register value
  end sub
